home *** CD-ROM | disk | FTP | other *** search
/ The Epic Interactive Enc…lopedia of the Paranormal / The Epic Interactive Encyclopedia of the Paranormal (1997).iso / savcode / cando / spaces->underscores.txt < prev    next >
Text File  |  1992-09-02  |  325b  |  19 lines
  1. ;I'm not sure if this works!  Test...
  2.  
  3. Let cur_name=arg1
  4.  
  5. Let length=numberofchars(cur_name)
  6. Let counter=1
  7. Let new=""
  8. Loop
  9.     Let temp_char=getchars(cur_name,counter,1)
  10.     If temp_char=" "
  11.         Let new=new||"_"
  12.     Else
  13.         Let new=new||temp_char
  14.     EndIf
  15.     Let counter=counter+1
  16. Until counter=length+1
  17. Let cur_name=new
  18.  
  19. ExitScript cur_name